10 PRINT"[147]":POKE36879,30
20 PRINT"NOTE:"
25 PRINT"THIS PROGRAM  IS"
30 PRINT"DESIGNED TO BE USED"
35 PRINT"AS A SUBROUTINE FOR"
40 PRINT"FAST CHARACTER SET"
45 PRINT"TRANSFER IN YOUR OWN"
50 PRINT"PROGRAMS.  SEE THE"
55 PRINT"MARCH GAZETTE ARTICLE"
60 PRINT"FOR PROPER USE."
65 PRINT"TO RELOAD MENU, PRESS"
70 PRINT"RUN-STOP/RESTORE, THEN";
75 PRINT"TYPE LOAD"CHR$(34)"MENU"CHR$(34)",8"
90 POKE56,28:CLR:POKE36869,255
100 AD=828:REM STARTING ADDRESS
110 FORI=ADTOAD+38:READA:POKEI,A:X=X+A:NEXT
120 IFX<>6044THENPRINT"ERROR IN DATA STATEMENTS.":STOP
130 SYSAD
140 DATA 173,5,144,41,3,10,10
150 DATA 105,16,133,254,169
160 DATA 128:REM 132,136, OR 140 FOR OTHER CHAR SETS
170 DATA 133,252,169,0,133,251,133
180 DATA 253,168,162
190 DATA 2:REM CHANGE TO 6 TO MOVE 192 CHARS
200 DATA 177,251,145,253
210 DATA 200,208,249,230,252,230,254
220 DATA 202,208,242,96
1000 FORI=7168TO7175:READA:POKEI,A:NEXT
1010 DATA 60,66,165,129,165,153,66,60